home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #11 / Amiga Plus CD - 2002 - No. 11.iso / Online / AmiComSys / Install < prev    next >
Text File  |  2002-10-27  |  13KB  |  305 lines

  1. ; Install script for AmiComSys 68020+/Kick 3.0
  2. ;
  3. ; $VER: AmiComSys-install 1.47 (08.09.2002) Håkan Parting
  4.  
  5. ; set some texts
  6. (set #updatetheinstaller "This installer requires version 43.3+ of the installer program\nIt may be found on Aminet in\n/util/misc/Installer-43_3.lha")
  7.  
  8. ; Check the installer version
  9. (set vernum @installer-version)
  10. (set ver (/ vernum 65536))
  11. (set rev (- vernum (* ver 65536)))
  12. (set installerver (cat ver "." rev))
  13. (if (< installerver "43.3") (exit #updatetheinstaller) )
  14.  
  15. ; 68020 is the CPU we require
  16. (set highcpu 1)
  17.  
  18. ; ** set system variables **
  19. ; CPU
  20. (set cpu (database "cpu"))
  21. (if (> (exists ("libs:68060.library")) 0) (set #cpu 5) )
  22. (if (> (exists ("68060.library") (resident)) 0) (set #cpu 5) )
  23. (if (= cpu 68000) (set #cpu 0))
  24. (if (= cpu 68010) (set #cpu 1))
  25. (if (= cpu 68020) (set #cpu 2))
  26. (if (= cpu 68030) (set #cpu 3))
  27. (if (= cpu 68040) (set #cpu 4))
  28. (if (= cpu 68050) (set #cpu 5))
  29.  
  30. ; OS-version
  31. (set osver (/ (getversion) 65536))
  32.  
  33. ; Setpatch version
  34. (set vernum (getversion "c:setpatch"))
  35. (set ver (/ vernum 65536))
  36. (set rev (- vernum (* ver 65536)))
  37. (set setpatchver (cat ver "." rev))
  38.  
  39. ; Version of AmiComSys in the archive
  40. (set vernum (getversion "AmiComSys"))
  41. (set ver (/ vernum 65536))
  42. (set rev (- vernum (* ver 65536)))
  43. (set acsver (cat ver "." rev))
  44.  
  45. ; set texts
  46. (set #nonlist "AmiComSys requires the MUI-costum-class\nNList.mcc version 20.106+ by Gilles Masson & Sebastian Bauer\n\nIt must be installed before AmiComSys\nPlease, download it from http://home.t-online.de/home/sebauer/MCC_NList.lha\nAnd install it with the included installer script\nThen try to install AmiComSys again ...")
  47. (set #nomui "AmiComSys requires Magic User Interface (MUI) 3.8!\n\nYou can find it on Aminet:dev/gui/mui38usr.lha")
  48. (set #wrongcpu0 "This archive does only include a version for 68020/kickstart 3.0 and\nhigher.\n\nYou may download a 68000 version from\nhttp://amicomsys.tibb.at\nAt the bottom of the page\n\nInstallation is aborted")
  49. (set #wrongcpu2 "This archive does only include a version for 68000/Kickstart 2.0 and\nhigher. A version for 68020 and higher is available\nat http://amicomsys.tibb.at\nor\nAminet:comm/net/AmiComSysMUI.lha")
  50. (set #seldocs "Select which documentation you want to install!")
  51. (set #selscr "Do you want to install the following Arexx-scripts?\nThey may be executed at different occasions.\nIf you already have a costum version of these you\nshould not check the checkboxes infront of the names.")
  52. (set #selscrhelp "The NotifyArexx.amicomsys may be executed when someone is\nconnecting or disconnecting. A simple example is included in this\narchive, but a more versatile one can be found at\nAminet:comm/net/ACS-Notify.lha and is written by Scott Beardwood\nThe MessageArexx.amicomsys script may be executed when someone\nmessage you. There is a simple example script in this archive.\nThese scripts does only work if you have registered AmiComSys.")
  53. (set #selimages "Do you want to use the 20 colour-(NewIcons-style)-graphics-buttons\nor the 8 colour-(MagicWB-style)-graphics-buttons?")
  54. (set #selimageshelp "This version of AmiComSys have graphics here and there.\nDo you want MagicWB style graphics or the NewIcons one?\nIf you have installed a replacement graphics-set, you'd better\nspecify that. If not it would be overwritten.\nIf you have screen size that is smaller than 640x512 then\nbetter choose the NewIcons graphics set, because the MagicWB one\nis to big.\nNote that the NewIcons 3/4 does not have to be installed\nto use the 20 colour-images!")
  55. (set #readmefile (cat "AmiComSys" acsver ".readme"))
  56. (set #notextinput "If you are using Amiga Kickstart 36, 37 or 38\nAmiComSys requires the costum MUI class\nTextinput.mcc.\nThis class couldn't be found in\nyour LIBS:/mui directory.\n\nPlease download it from\nftp://ftp.vapor.com/misc/textinpt_13.XX.lzx\nwhere XX is 34 or higher.");
  57. (set #stringtext "")
  58. (set #wrongos "This version of AmiComSys requires Kickstart 3.0+\nThere is Kickstart 2.0 version available at the\nhome page.")
  59. (set #updatethesetpatch "The installer didn't find version 40.16 or higher of c:setpatch\nAmiComSys needs it to work correctly.\nIf you have it in another location then c: then you could leave it there,\nbut please make sure it's version 40.16 or higher.")
  60. (if (> osver 38) (set #stringtext "BetterString.mcc © Allan Odgaard\n"))
  61. (if (= highcpu 0) (set #cputext "68000/OS2.0+ version\n"))
  62. (if (= highcpu 1) (set #cputext "68020+/OS3.0+ version\n"))
  63.  
  64. (message
  65.     (cat "Welcome to the AmiComSys " acsver " installer!\n\n")
  66.     "You may either use this for a first\n"
  67.     "time install or for updating a former\n"
  68.     "version of AmiComSys.\n\n"
  69.     "AmiComSys © Håkan Parting 1997-2002\n"
  70.     #cputext
  71.     "Requires:\n"
  72.     "MUI 3.8+ © Stefan Stuntz\n"
  73.     "AMarquee V54+ © Jeremy Friesner & Håkan Parting\n"
  74.     "NList.mcc 20.106+ © Gilles Masson\n"
  75.     "Toolbar.mcc 15.6+ © Benny Kjær Nielsen\n"
  76.     #stringtext 
  77. )
  78.  
  79. (run "avail flush > NIL:") (run "avail flush > NIL:")
  80.  
  81. (message
  82.     "\n\n\nPlease make sure that no session of AmiComSys\nis running before you proceed with this\ninstallation.\n\nIf you get object in use errors please wait\n3 to 5 minutes and then try again."
  83. )
  84.  
  85. (if (< osver 39) (exit #wrongos))
  86.  
  87. (if (< setpatchver "40.16") (message #updatethesetpatch) )
  88.  
  89. (if (< (exists "MUI:") 2) (exit #nomui) )
  90. (if (exists "LIBS:muimaster.library") (
  91.     (set muiver (/(getversion "LIBS:muimaster.library") 65536))
  92. ))
  93. (if (< muiver 19) ( 
  94.     (exit #nomui)
  95. ))
  96.  
  97. (set muiver 0)
  98. (if (exists "LIBS:MUI/NList.mcc") (
  99.     (set muiver (/(getversion "MUI:libs/mui/NList.mcc") 65536))
  100. ))
  101. (if (< muiver 20) (
  102.     (exit #nonlist)
  103. ))
  104.  
  105. (welcome)
  106. (set cpuVal (askchoice (choices "68000" "68010" "68020" "68030"
  107.                          "68040" "68060"
  108.                     )
  109.                 (prompt "Please, select the processor your Amiga have")
  110.                 (help   "Recommended is to leave it as default")
  111.                 (default #cpu)
  112.         )
  113. )
  114.  
  115. (if (= highcpu 1) (if (< cpuVal 2) (exit #wrongcpu0) ))
  116. (if (= highcpu 0) (if (> cpuVal 1) (message #wrongcpu2) ))
  117.  
  118. (set DefDir (getassign "MIAMI"))
  119. (if (= DefDir "") (set DefDir (getassign "AmiTCP")) )
  120. (if (= DefDir "") (set DefDir (getassign "Inet")) )
  121.  
  122. (set #target (askdir    (prompt "Where do you want to install AmiComSys?\nA directory named AmiComSys will be created.")
  123.                         (help "Select a directory, where you want to install AmiComSys!\nA directory named AmiComSys will be created there.")
  124.                         (default DefDir)
  125. ))
  126.  
  127. (set instdir (tackon #target "AmiComSys"))
  128. (set @default-dest instdir)
  129.  
  130. (makedir instdir (infos))
  131. (if (< (exists (tackon instdir "pictures")) 2) (makedir (tackon instdir "pictures")) )
  132. (if (< (exists (tackon instdir "plugins")) 2) (makedir (tackon instdir "plugins")) )
  133.  
  134. (if (< (exists (tackon instdir "images")) 2) (makedir (tackon instdir "images")) )
  135.  
  136. ; check if another version of AmiComSys is already there
  137. ; if so, make a backup
  138.  
  139. (if (= 1 (exists (tackon instdir "AmiComSys") ) )
  140.     (
  141.         (set vernum (getversion (tackon instdir "AmiComSys")))
  142.         (set ver (/ vernum 65536))
  143.         (set rev (- vernum (* ver 65536)))
  144.         (set acsverold (cat ver "." rev))
  145.  
  146.         (message (cat "AmiComSys version " acsverold " was found in the install directory.\n\nIt will be backed up as AmiComSys" acsverold))        
  147.         (copyfiles (source (tackon instdir "AmiComSys"))
  148.                     (dest instdir)
  149.                     (infos)
  150.                     (newname (cat "AmiComSys" acsverold))
  151.         )
  152.     )
  153. )
  154.  
  155. ; copy over files
  156.  
  157. (copyfiles (source "AmiComSys") (dest instdir) )
  158.  
  159. (set copyovericon 0)
  160. (if (= (exists (tackon instdir "AmiComSys.info")) 1)
  161. (
  162.     (set copyovericon (askchoice (choices "Replace icon" "Keep my icon")
  163.                                 (prompt "Do you want to replace your AmiComSys.info icon with\nthe one in the archive?")
  164.                                 (help "")
  165.                                 (default 1)
  166.                         )
  167.     )
  168.  
  169.     (if (= copyovericon 1)
  170.         (
  171.             (makedir (tackon instdir "icons") (infos))
  172.             (copyfiles (source "AmiComSys.info") (dest (tackon instdir "icons")))
  173.             (message "The latest icon-file was copied to the icons directory of AmiComSys")
  174.         )
  175.     )
  176. )
  177. )
  178.  
  179. (if (= copyovericon 0)
  180.     (copyfiles (source "AmiComSys.info") (dest instdir))
  181. )
  182.  
  183.  
  184. ;(tooltype (dest (tackon instdir "AmiComSys")) (settooltype "PROGDIR" instdir) )
  185.  
  186. (copyfiles (source "Register") (dest (tackon instdir "Register")) (all) (infos))
  187.  
  188. (set imag (askchoice (choices "NewIcons - Brecht 'Darklite' Machiels (20 colours)" "RomIcons - Andreas Kuerzinger '01 (16 colours)" "MagicWB - Andreas Kuerzinger '00 (8 colours)" "MagicWB - Mads 'Yedo' Jensen '98 (8 colours)" "I've installed another replacement\ngfx-set. If so, make sure it's done for ACS 1.25+!")
  189.                     (prompt #selimages)
  190.                     (help #selimageshelp)
  191.                     (default 0)
  192. ))
  193.  
  194. (if (= imag 0) (copyfiles (source "NIImages") (dest (tackon instdir "Images")) (all)))
  195. (if (= imag 1) (copyfiles (source "RomIcons") (dest (tackon instdir "Images")) (all)))
  196. (if (= imag 2) (copyfiles (source "MWBImages") (dest (tackon instdir "Images")) (all)))
  197. (if (= imag 3) (copyfiles (source "MWBImages2") (dest (tackon instdir "Images")) (all)))
  198.  
  199. (copyfiles (source "Rexx") (pattern "~(NotifyArexx.amicomsys|MessageArexx.amicomsys)") (dest (tackon instdir "Rexx")))
  200.  
  201. (set arscrp (askoptions (choices "NotifyArexx.amicomsys" "MessageArexx.amicomsys")
  202.                     (prompt #selscr)
  203.                     (help #selscrhelp)
  204.                     (default 2)
  205. ))
  206.  
  207. (if (<> arscrp 0) (
  208.     (if (IN arscrp 0) (copyfiles (source "Rexx/NotifyArexx.amicomsys") (dest (tackon instdir "Rexx"))))
  209.     (if (IN arscrp 1) (copyfiles (source "Rexx/MessageArexx.amicomsys") (dest (tackon instdir "Rexx"))))
  210. ))
  211.  
  212. ; install docs
  213. (set docs (askoptions (choices "AmiComSys.guide" "AmiComSys.readme" "BetterString.readme" "Toolbar.guide" "Readme.mui" "Imagepool.guide")
  214.                 (prompt #seldocs)
  215.                 (help #seldocs)
  216.                 (default 31)
  217. ))
  218.  
  219. (if (<> docs 0) (
  220.     (if (IN docs 1) (copyfiles (source #readmefile) (dest instdir) (newname "AmiComSys.readme") (infos) ) )
  221.     (if (IN docs 0) (
  222.         (set #doctarget (askdir (prompt "Where do you want to install the guide?")
  223.                 (default instdir)
  224.                 (help "Select where to install the documentation.\nRecommended is the AmiComSys directory\nor your HELP: directory.")
  225.         ))
  226.         (copyfiles (source "AmiComSys.guide") (dest #doctarget) (infos))
  227.     ))
  228.     (if (IN docs 2) (
  229.         (copyfiles (source "mui/libs/mui/BetterString.doc") (dest instdir) (infos))
  230.     ))
  231.     (if (IN docs 3) (
  232.         (copyfiles (source "mui/libs/mui/Toolbar.guide") (dest instdir) (infos))
  233.     ))
  234.     (if (IN docs 4) (
  235.         (copyfiles (source "Readme.mui") (dest instdir) (infos))
  236.     ))
  237.     (if (IN docs 5) (
  238.         (copyfiles (source "libs/ImagePool.guide") (dest instdir) (infos))
  239.     ))
  240. ))
  241.  
  242. ( if(= (askbool (prompt "Do you want to copy the AmiComSys executable to\nyour SYS:WBStartup drawer?\nThe tooltype PROGDIR will be set to your AmiComSys\ndirectory, so the program is able to find common files.")
  243.     (help "If you answer Yes, AmiComSys and AmiComSys.info will be\ncopied to your WBStartup drawer.\nThen it will automatically start everytime your Amiga is booted")
  244.     (default 0)
  245.     ) 1) (
  246.         (copyfiles (source (tackon instdir "AmiComSys")) (dest "SYS:WBStartup") (all) (infos))
  247.         (tooltype (dest "SYS:WBStartup/AmiComSys") (settooltype "PROGDIR" instdir) )
  248.     )
  249. )
  250.  
  251. (if (> osver 38) (
  252. (copylib (prompt #prompt_copy "\n\nBetterString.mcc" )
  253.          (help @copylib-help)
  254.          (confirm "average")
  255.          (source "mui/libs/mui/BetterString.mcc")
  256.          (dest "MUI:libs/mui/")
  257.          (optional "oknodelete" "force")
  258. )
  259.  
  260. (copylib (prompt #prompt_copy "\n\nBetterString.mcp" )
  261.          (help @copylib-help)
  262.          (confirm "average")
  263.          (source "mui/libs/mui/BetterString.mcp")
  264.          (dest "MUI:libs/mui/")
  265.          (optional "oknodelete" "force")
  266. )
  267. (copylib (prompt #prompt_copy "\n\nToolbar.mcc" )
  268.          (help @copylib-help)
  269.          (confirm "average")
  270.          (source "mui/libs/mui/Toolbar.mcc")
  271.          (dest "MUI:libs/mui")
  272.          (optional "oknodelete" "force")
  273. )
  274.  
  275. (copylib (prompt #prompt_copy "\n\nToolbar.mcp" )
  276.          (help @copylib-help)
  277.          (confirm "average")
  278.          (source "mui/libs/mui/Toolbar.mcp")
  279.          (dest "MUI:libs/mui/")
  280.          (optional "oknodelete" "force")
  281. )
  282. ))
  283.  
  284. (copylib (prompt #prompt_copy "\n\nAMarquee.library" )
  285.          (help @copylib-help)
  286.          (confirm "average")
  287.          (source "libs/amarquee.library")
  288.          (dest "LIBS:")
  289.          (optional "oknodelete" "force")
  290. )
  291.  
  292. (copylib (prompt #prompt_copy "\n\nImagePool.library" )
  293.          (help @copylib-help)
  294.          (confirm "average")
  295.          (source "libs/imagepool.library")
  296.          (dest "LIBS:")
  297.          (optional "oknodelete" "force")
  298. )
  299. (message "Thanks for using AmiComSys!\n\n"
  300.         "You should now start AmiComSys and configure it.\nMost important is that you enter a login name\nand your emailaddress.\nThe emailaddress is your unique name on server\nIt will not be visible for any other user.\n"
  301.         "\nPlease also read about the rules in the guide.\n"
  302.         "\nPlease support further development by registering.\n"
  303.         "Online registration with instant keyfile delivery available at\n"
  304.         "http://www.parting.nu/AmiComSys/")
  305.